home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / S9303.ZIP;1 / KOORHAN.ZIP / EVALOBJ.PRG < prev    next >
Encoding:
Text File  |  1993-02-10  |  1.5 KB  |  47 lines
  1. FUNCTION EvalObject
  2. jColPos = MOD( _CUROBJ, 12)
  3. * Check to see if the current object is 
  4. * in the top or bottom sections
  5. IF _CUROBJ < 109            && top
  6. * Check to see if the current object is 
  7. * in the upper left section and not already there
  8.   IF BETWEEN( jColPos, 1, 6) AND ;
  9.      ! (llUp AND llLeft)      
  10.     MOVE WINDOW wrIntWind ;
  11.          TO 0,0             && upper left quadrant
  12.     STORE .T. TO llUp, llLeft
  13.     STORE .F. TO llDown, llRight
  14.   ELSE
  15. * Check to see if the current object is 
  16. * in the upper right section and not already there
  17.     IF ! BETWEEN( jColPos, 1, 6) AND ;
  18.        ! (llUp AND llRight)
  19.       MOVE WINDOW wrIntWind ;
  20.            TO 0, -80       && upper right quadrant
  21.       STORE .T. TO llUp, llRight
  22.       STORE .F. TO llDown, llLeft
  23.     ENDIF
  24.   ENDIF
  25. ELSE                       && bottom
  26. * Check to see if the current object is 
  27. * in the lower left section and not already there
  28.   IF BETWEEN( jColPos, 1, 6) AND ;
  29.       ! (llDown AND llLeft)
  30.     MOVE WINDOW wrIntWind ;
  31.          TO -23, 0           && lower left quadrant
  32.     STORE .T. TO llDown, llLeft
  33.     STORE .F. TO llUp, llRight
  34.   ELSE
  35. * Check to see if the current object is 
  36. * in the lower right section and not already there
  37.     IF ! BETWEEN( jColPos, 1, 6) AND ;
  38.        ! (llDown AND llRight)
  39.       MOVE WINDOW wrIntWind 
  40.            TO -23, -80      && lower right quadrant
  41.       STORE .T. TO llDown, llRight
  42.       STORE .F. TO llUp, llLeft
  43.     ENDIF
  44.   ENDIF
  45. ENDIF
  46. SHOW GETS
  47.